﻿Imports System.IO
Imports System.Diagnostics
Imports System.Net.Mail
Imports System.Data
Imports System.Xml
Imports System.Xml.Xsl
Imports System.Net

Public Class Login
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub


    Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Me.Login1.UserName.ToString = "admin" Then
            Response.Redirect("Menu.aspx")
        Else
            MsgBox("El usuario no existe. Intente de nuevo.")
        End If
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Me.Login1.UserName.ToString = "120901" Then
            MsgBox("Asistencia registrada. Dia: 28/09/2012 - Hora: 8:30 pm")
        Else
            MsgBox("Usuario o contraseña incorrectos")
        End If
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Me.Login1.UserName.ToString = "120901" Then
            MsgBox("Salida registrada. Dia: 28/09/2012 - Hora: 8:35 pm")
        Else
            MsgBox("Usuario o contraseña incorrectos")
        End If
    End Sub

End Class